home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 8 / Amoszine 8 (Disk 1 of 3).adf / Palette_Editor.lha / palette_editor / examples / PALETTE_EXAMPLE.amos / PALETTE_EXAMPLE.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1980-01-23  |  2.6 KB  |  122 lines
  1. '**************************************
  2. '
  3. '         PALETTE BANK DEMO
  4. '         -----------------
  5. '      By Malcolm Lavery 1994. 
  6. '
  7. '  All palette banks created with my 
  8. '     palette bank editor/saver. 
  9. '
  10. '**************************************
  11. '
  12. '***** LOAD IN A PICTURE THAT YOU USED WHILE ******
  13. '***** SAVEING OUT YOUR PALETTE SETTINGS.... ******
  14. '
  15. Load "help.abk",9
  16. Unpack 9 To 0
  17. '
  18. '***** PALETTES BANKS ARE HELD IN MEMORY ******
  19. '***** AS NORMAL AMOS BANKS,ONCE YOU LOAD *****
  20. '***** THEM IN,THEY ARE PERMENANT,AND CAN BE **
  21. '***** SAVED ALONG WITH YOUR PROGRAM.**********
  22. '***** DO A LIST BANK TO SEE THE PALETTES *****
  23. '
  24. '**********************************************
  25. '
  26. 'A GOOD USE FOR THIS TYPE OF PALETTE BANKS,IS
  27. 'THAT ALL YOUR PICTURES CAN BE STILL STORED AS 
  28. 'NORMAL IFF OR ABK ON THE DISK,YOU JUST SET ALL
  29. 'THEIR PALETTE COLOURS TO BLACK,THEN WHEN YOU  
  30. 'LOAD THEM INTO YOUR PROGRAM,SET THEIR PALETTE 
  31. 'BACK TO NORMAL FROM THE PALETTE BANK STORED WITHIN
  32. 'YOUR PROGRAM,THIS WAY EVEN THOUGH ANYBODY CAN STILL 
  33. 'LOAD YOUR ART/PICTURES,THEY ARE ALL BLACK!!,AND NO
  34. 'USE TO ANYBODY. 
  35. '
  36. '**********************************************
  37. '
  38. Do 
  39.    '
  40.    Wait 50
  41.    _FADE_TO_BANK[0,11,500]
  42.    Wait 50
  43.    '
  44.    _FADE_TO_BANK[0,12,500]
  45.    Wait 50
  46.    '
  47.    _FADE_TO_BANK[0,13,500]
  48.    Wait 50
  49.    '
  50.    _FADE_TO_BANK[0,14,1000]
  51.    Wait 50
  52.    '
  53.    _FADE_TO_BANK[0,15,1000]
  54.    Wait 50
  55.    '
  56.    _FADE_TO_BANK[0,16,500]
  57.    Wait 50
  58.    '
  59.    _FADE_TO_BANK[0,10,500]
  60.    Wait 50
  61.    '
  62. Loop 
  63. '
  64. Procedure _FADE_TO_BANK[_SCREEN,_BANK,_SPEED]
  65.    '
  66.    If _COLOURS>Length(_BANK)/2
  67.       F=2
  68.    Else F=1
  69.    End If 
  70.    '
  71.    Screen _SCREEN
  72.    '
  73.    For TIMES=0 To 15
  74.       POS=Start(_BANK)
  75.       _COL=0
  76.       '
  77.       For PLACE=POS To POS+Length(_BANK)-2 Step 2
  78.          DYE=Deek(PLACE)
  79.          '
  80.          REDB=(DYE/256)/F
  81.          GREENB=(DYE/16 and $F)/F
  82.          BLUEB=((DYE) and $F)/F
  83.          '
  84.          RED=(Colour(_COL)/256)/1
  85.          GREEN=(Colour(_COL)/16 and $F)/F
  86.          BLUE=(Colour(_COL) and $F)/F
  87.          '
  88.          If RED<REDB
  89.             Inc RED
  90.          End If 
  91.          If RED>REDB
  92.             Dec RED
  93.          End If 
  94.          '
  95.          If GREEN<GREENB
  96.             Inc GREEN
  97.          End If 
  98.          If GREEN>GREENB
  99.             Dec GREEN
  100.          End If 
  101.          '
  102.          If BLUE<BLUEB
  103.             Inc BLUE
  104.          End If 
  105.          If BLUE>BLUEB
  106.             Dec BLUE
  107.          End If 
  108.          '
  109.          Screen _SCREEN
  110.          '
  111.          Colour _COL,RED*256+GREEN*16+BLUE
  112.          '
  113.          For DELAY=0 To _SPEED
  114.          Next DELAY
  115.          '
  116.          Inc _COL
  117.          '
  118.       Next PLACE
  119.       
  120.    Next TIMES
  121.    '
  122. End Proc